perm filename OUTZ.BLI[AI,LCS] blob
sn#812752 filedate 1983-01-06 generic text, type T, neo UTF8
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1972, 1983
!AUTHOR: M. G. MANUGIAN
MODULE OUTZ=
BEGIN
!THIS MODULE REPLACES OUTZ.BLI WHICH WAS WRITTEN BY TOM OSTEN, BUT
!MISPLACED. THIS MODULE WAS DECOMPILED FROM THE REL FILE FOR OUTZ.
GLOBAL BIND OUTZV = 6↑24 + 0↑18 + 0; ! Version Date: 12-Jul-72
%(
***** Begin Revision History *****
***** End Revision History *****
)%
GLOBAL ROUTINE OUTZ(CHANNEL,STRINGADDR)=
!OUTPUT THE ASCIZ STRING POINTED TO BY THE 18 BIT STRINGADDR TO
!THE DEVICE INITED ON CHANNEL .CHANNEL.
BEGIN
LOCAL CHAR, !CHARACTER TO BE OUTPUT
BP; !BYTE POINTER TO CHAR IN STRING
EXTERNAL WRITE; !ROUTINE TO OUTPUT ONE ASCII CHAR.
MACRO LEFTHALF=0,18$;
BP←(.STRINGADDR-1)<0,7>;
DO
(INCR COUNT FROM 0 TO 4 DO
IF (CHAR←SCANI(BP)) EQL 0
THEN RETURN
ELSE WRITE(.CHANNEL,.CHAR)
)
UNTIL @@BP
END;
END !OF THE MODULE